Info-Mac 4/Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso/Games/General/Geography Challenge/background_2626.xml

Extensible Markup Language | 1994-03-01 | 22KB | 494 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2626</id>
    <filler1>0</filler1>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3274.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>0</top>
            <right>28</right>
            <bottom>143</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Number</name>
        <script></script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>30</left>
            <top>0</top>
            <right>130</right>
            <bottom>141</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Continent</name>
        <script></script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>133</left>
            <top>0</top>
            <right>235</right>
            <bottom>142</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Country</name>
        <script></script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>235</left>
            <top>0</top>
            <right>342</right>
            <bottom>140</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>capital</name>
        <script></script>
    </part>
    <part>
        <id>5</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>343</left>
            <top>0</top>
            <right>443</right>
            <bottom>141</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>BigCity</name>
        <script></script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>208</left>
            <top>1</top>
            <right>447</right>
            <bottom>144</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>HighScores</name>
        <script></script>
    </part>
    <part>
        <id>7</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>1413</left>
            <top>1489</top>
            <right>1587</right>
            <bottom>1511</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>defaults</name>
        <script></script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>5</left>
            <top>159</top>
            <right>102</right>
            <bottom>179</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Player 1</name>
        <script>on mouseUpend mouseUp</script>
    </part>
    <part>
        <id>9</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>115</left>
            <top>159</top>
            <right>212</right>
            <bottom>179</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Player 2</name>
        <script>on mouseUpend mouseUp</script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>223</left>
            <top>159</top>
            <right>320</right>
            <bottom>179</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Player 3</name>
        <script>on mouseUpend mouseUp</script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>332</left>
            <top>159</top>
            <right>429</right>
            <bottom>179</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Player 4</name>
        <script>on mouseUpend mouseUp</script>
    </part>
    <part>
        <id>12</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>5</left>
            <top>183</top>
            <right>102</right>
            <bottom>204</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Score1</name>
        <script>on mouseDownend mouseDown</script>
    </part>
    <part>
        <id>13</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>115</left>
            <top>183</top>
            <right>212</right>
            <bottom>204</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Score2</name>
        <script>on mouseDownend mouseDown</script>
    </part>
    <part>
        <id>14</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>223</left>
            <top>183</top>
            <right>320</right>
            <bottom>204</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Score3</name>
        <script>on mouseDownend mouseDown</script>
    </part>
    <part>
        <id>15</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>332</left>
            <top>183</top>
            <right>429</right>
            <bottom>204</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Score4</name>
        <script>on mouseDownend mouseDown</script>
    </part>
    <content>
        <layer>background</layer>
        <id>7</id>
        <text>2,capitals,2,</text>
    </content>
    <name></name>
    <script>on testrandomset cursor to busyput 0 into cntrput 0 into rightrepeat 100000put random(4) into nwNumif nwNum is 2 then add 1 to rightadd 1 to cntrput 100*cntr div 100000 &" percent done."end repeatput right/cntr&&"(expected is 0.25)play boingend testrandomon dohelplock screengo to cd 1show btn closebox of cd 1show btn helpbar of cd 1show cd fld help of cd 1set scroll of cd fld help of cd 1 to 0unlock screen with dissolveend doHelpon doquiz whatglobal counter,right,wrong,total,quiz-- if (hilite of the target is not true) and ((right+wrong)>100) then-- doHighScore-- end ifput what into quizput "capitals quiz,countries quiz,cities quiz" into bnsset cursor to busyput number of lines in fld number into totalput 1 into counterput 0 into rightput 0 into wronglock screenrepeat with x = 1 to 3if quiz = word 1 of item x of bns thenput word 1 of item x of bns into quizput quiz into item 2 of fld "defaults"set hilite of btn item x of bns to trueset the checkmark of menuitem item x of bns of menu "Quiz" to trueelseset hilite of btn item x of bns to falseset the checkmark of menuitem item x of bns of menu "Quiz" to falseend ifend repeatunlock screen with dissolve fastnextQuestion quizend doQuizon doHighScoreglobal right,wrongif word 3 of cd fld score > 100 thenask "Enter your first name:" with item 1 of line 1 of fld HighScoresput it into newPlayerput false into recordExistsrepeat with x=1 to number of lines in fld HighScoresif item 1 of line x of fld HighScores is newPlayer thenput x into whLineput true into recordExistsexit repeatend ifend repeatput item 2 of line whLine of fld HighScores into prevRightput item 3 of line whLine of fld HighScores into prevWrongput trunc(prevRight*100/(prevRight+prevWrong)) into prevPercput trunc(Right*100/(Right+Wrong)) into newPercif prevPerc < newPerc thenput right into item 2 of line whLine of fld HighScoresput wrong into item 3 of line whLine of fld HighScoresanswer "Congratulations! You answered "&newPerc&" percent "&¬"correctly which is "&newPerc-prevPerc&" percent better "&¬"than your last best score." with "Cool!"else if prevPerc = newPerc thenanswer "Way to go! You equalled your previous top score "&¬"of "&newPerc&" percent." with "Whew!"elseanswer "Pretty good, but you only answered "&newPerc &¬"percent correctly which is "&prevPerc-newPerc&" percent "&¬"less than your all-time top score." with "Oh Well!"end ifelseput return&newPlayer&","&right&","&wrong after fld highscoresput trunc(Right*100/(Right+Wrong)) into newPercanswer "Your answered "&newPerc&" percent correctly and "&¬"this value has been stored on the High Scores list." with¬"Cool!"end ifend doHighScoreon nextQuestion whichglobal right,wrong,counter,total,lastpicked,newRight,guesses,whRegion,wrglobal theNumbers,theContinents,theCountries,theCapitals,theBigCitieslock screenput "" into guessesset hilite of btn "correct" to falseset hilite of btn id 7 to falseset cursor to busyif whRegion is "" then put true into whRegionif total < 3 then exit nextQuestionrepeatput random(total) into nextNum-- if (which is "cities") and (line nextNum of theBigCities = "") then-- next repeat-- end ifif whRegion thenif line nextNum of theContinents is not in wr then next repeatend ifif nextNum is not lastpicked then exit repeatend repeatput nextNum into lastpickedput line nextNum of theNumbers into newNumberput line nextNum of theCountries into newCountryput line nextNum of theCapitals into newCapitalput line nextNum of theBigCities into newBigCityif which is "capitals" thenput "What is the capital of "&newCountry&"?" into cd fld questionelse if which is "countries" thenput newCapital&" is the capital of what country?" into cd fld questionelseput newBigCity&" is a city in what country?" into cd fld questionend ifput random(3) into NRput "answer"&NR into newRightif newRight = "answer1" thenput "answer2" into wrong1put "answer3" into wrong2else if newRight = "answer2" thenput "answer1" into wrong1put "answer3" into wrong2elseput "answer1" into wrong1put "answer2" into wrong2end ifrepeatput random(total) into wr1if (not whRegion) or (line wr1 of theContinents is in wr) thenif nextNum = wr1 then next repeatexit repeatend ifend repeatrepeatput random(total) into wr2if (not whRegion) or (line wr2 of theContinents is in wr) thenif (nextNum = wr2) or (wr1 = wr2) then next repeatexit repeatend ifend repeatif which is "capitals" thenput newCapital into cd fld newRightput line wr1 of theCapitals into cd fld wrong1put line wr2 of theCapitals into cd fld wrong2elseput newCountry into cd fld newRightput line wr1 of theCountries into cd fld wrong1put line wr2 of theCountries into cd fld wrong2end ifput right&&"of"&&(right+wrong) into cd fld scoreunlock screen with dissolveend nextQuestionon doTestglobal newRight,right,wrong,counter,guesses,quiz,thePlayer,numPlayersput the short name of the target into newName-- lock screenif newName is not in guesses thenput newName&"," after guessesif newName is newRight thenset hilite of btn "correct" to trueset hilite of btn id 7 to falseadd 1 to rightput "Score"&thePlayer into fnmadd 1 to fld fnmput true into doNextwait 30set hilite of btn "correct" to falseelseset hilite of btn id 7 to trueset hilite of btn "correct" to falseput false into doNextadd 1 to wrongput "Player "&thePlayer into bnmset hilite of bg btn bnm to falseif thePlayer is numPlayers thenif numplayers = 1 thenput "0" into fld "score1"elseput 1 into thePlayerend ifelseadd 1 to thePlayerend ifput "Player "&thePlayer into bnmset hilite of bg btn bnm to trueend ifadd 1 to counterput right&&"of"&&(right+wrong) into cd fld scoreif doNext thennextQuestion quizend ifelsebeepend ifend doTeston EditFldslock screenif the visible of fld number is false thenshow fld numbershow fld continentshow fld countryshow fld capitalshow fld bigcityhide cd fld questionhide cd fld answer1hide cd fld answer2hide cd fld answer3hide cd fld scorehide btn "correct"hide btn id 7hide btn "capitals quiz"hide btn "countries quiz"hide btn "cities quiz"elsehide fld numberhide fld continenthide fld countryhide fld capitalhide fld bigcityshow cd fld questionshow cd fld answer1show cd fld answer2show cd fld answer3show cd fld scoreshow btn "correct"show btn id 7show btn "capitals quiz"show btn "countries quiz"show btn "cities quiz"end ifunlock screen with dissolveend EditFldson doImportglobal totalanswer "Would you like to save a copy of the current stack "&¬"before replacing all the data?" with "No" or "Yes"if it is "yes" then domenu "Save a Copy..."answer file "Where is the geography data file?" of type "TEXT"if the result is "cancel" then exit to hypercardput it into fnset cursor to busyopen file fnread from file fn until eofput it into inputclose file fnput "" into fld numberput "" into  fld continentput "" into  fld countryput "" into  fld capitalput "" into  fld bigcityrepeat with x=1 to number of lines in inputput item 1 of line x of input into line x of fld numberput item 2 of line x of input into line x of fld continentput item 3 of line x of input into line x of fld countryput item 4 of line x of input into line x of fld capitalput item 5 of line x of input into line x of fld bigcityend repeatput number of lines in fld number into totalend doImporton doExportask file "Save geographic data as…" with "GeoData.txt"&&the short dateif the result is "cancel" then exit to hypercardput it into fnset cursor to busyput "" into outputrepeat with x=1 to number of lines in fld numberput line x of fld number &","&¬line x of fld continent &","&¬line x of fld country &","&¬line x of fld capital &","&¬line x of fld bigcity&return after outputend repeatopen file fnwrite output to file fnclose file fnend doExport</script>
</background>